! name: ajt13
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d

prism_   10, 0.045, 

    0, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    0, b, 15,
    0, 0, -1,

    0.12, 0.25, 15,
     a/2-0.12, 0.25, 15,
     a/2-0.12, b-0.12, 15,
    0.12, b-0.12, 15,
    0.12, 0.25, -1


addz -0.005

prism_  10, 0.055,
    0.12, 0.25, 15,
     a/2-0.12, 0.25, 15,
     a/2-0.12, b-0.12, 15,
    0.12, b-0.12, 15,
    0.12, 0.25, -1,
    
    0.135, 0.265, 15,
     a/2-0.135, 0.265, 15,
     a/2-0.135, b-0.135, 15,
    0.135, b-0.135, 15,
    0.135, 0.265, -1

addz 0.0240


kx = 0.142
ky = 0.272

dx = (a/2-0.142*2-0.007*2) / 3
dy = (b-0.142-0.272-0.007*3) / 4



for iy = 1 to 4 step 1

    for ix = 1 to 3 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.007

    next ix

    kx = 0.142

    ky = ky+dy+0.007

next iy

material mat2

prism_ 5+nsp/3, 0.007,
    0.135, 0.265, 15,
     a/2-0.135, 0.265, 15,
     a/2-0.135, b-0.135, 15,
    0.135, b-0.135, 15,
    0.135, 0.265, -1,

    use (nsp)


material mat1


for ii = 1 to 3*4 step 1

    prism_ 5, 0.007,
        get (15)

next ii

del 2

addz 0.045
addy 0.95
addx 0.07

call "handle_2" mat2

addz -0.045

mulz -1

call "handle_2" mat2

